Paradise in the Skirt/Paradise in the Skirt.iso/town1.dir/00072_Script_72

Text File | 1994-11-11 | 1KB | 29 lines

ON STARTMOVIE
  global manH,manV,raderH,raderV,Girl1,Girl2,gBlockList,gGirlList,gEntranceList,stepNo,totalHPoint,switchYesNo,gMovieList
  put 5 into stepNo
  put totalHpoint into field "Hpoint"
  set gBlockList = [20,21,22,23,24,25,29,30,31,32,33]
  set gEntranceList = [34,35,36]
  set gGirlList = [20,21,22,23,24,25]
  set gMovieList = [20:1,21:2,22:3,23:4,24:5,25:6]
  set girlsblockList = [13,20,21,22,23,24,25,29,30,31,32,33]
  puppetSprite 13, true
  PUPPETSPRITE 14, TRUE
  set the locH of sprite 13 to manH
  set the locV of sprite 13 to manV
  set the locH of sprite 14 to raderH
  set the locV of sprite 14 to raderV
  set girl1 = birth(script "aGirl", 24, 75, 27, 79, girlsblockList)
  set girl2 = birth(script "aGirl", 25, 58, 28, 74, girlsblockList)
  updatestage
  set the keyDownScript = "incHPoint"
END

on incHPoint
  global totalHpoint
  if the commandDown and the optionDown and (the keyCode = 4) then
    put totalHpoint + 300 into totalHpoint
    put totalHpoint into field "Hpoint"
  end if
end